
      INTEGER*8     KINT1,KINT2,KPINT1,KPINT2,KLSM1,KLSM2,KRHO1,        &
     &              KSBEVC,KSBEVL,KSBIDT,KSBCNF,KH0,KH0SCR,             &
     &              KSBIA,KSBIB,      KPNIJ,KIJKK,KFI,KINH1,            &
     &              KRHO2,KLOCCLS,KPGINT1,                              &
     &              KINT1O,KFIO,KPGINT1A,KCC1,KCC2,KCC3,                &
     &              KRHO1_ens,KSRHO1,KRHO2AA,KRHO2BB,KRHO2AB,kfsr_ens,  &
     &              KSRHO1a,KSRHO1b
      COMMON/GLBBAS/KINT1,KINT2,KPINT1,KPINT2,KLSM1,KLSM2,KRHO1,        &
     &              KSBEVC,KSBEVL,KSBIDT,KSBCNF,KH0,KH0SCR,             &
     &              KSBIA,KSBIB,      KPNIJ,KIJKK,KFI,KINH1,            &
     &              KRHO2,KLOCCLS,KPGINT1(MXPOBS),                      &
     &              KINT1O,KFIO,KPGINT1A(MXPOBS),KCC1,KCC2,KCC3,        &
     &              KRHO1_ens,KSRHO1,KRHO2AA,KRHO2BB,KRHO2AB,kfsr_ens,  &
     &              KSRHO1a,KSRHO1b
